home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / t2win_16 / t2wload.bas < prev    next >
Encoding:
BASIC Source File  |  1995-11-08  |  505 b   |  23 lines
  1. Attribute VB_Name = "T2WLOAD"
  2. Option Explicit
  3.  
  4. Declare Function GetWindow Lib "user" (ByVal hWnd As Integer, ByVal fct As Integer) As Integer
  5. Declare Function GetTopWindow Lib "user" (ByVal hWnd As Integer) As Integer
  6. Declare Function GetNextWindow Lib "user" (ByVal hWnd As Integer, ByVal fct As Integer) As Integer
  7.  
  8.  
  9. Sub Main()
  10.  
  11.    Load frmT2W
  12.  
  13.    Call cCenterWindow(frmT2W.hWnd)
  14.  
  15.    Call cShowWindow(frmT2W.hWnd, 0, 160)
  16.  
  17.    frmT2W.Show
  18.    
  19.    Call cArrangeDesktopIcons
  20.  
  21. End Sub
  22.  
  23.